UC知道[VB编程]生成时间序列
来源：百度知道 编辑：UC知道 时间：2024/06/06 20:29:38
例如我想要如下的时间序列：
2009-10-09 08：32：54
2009-10-09 08：32：57
2009-10-09 08：32：60
2009-10-09 08：33：03
……
要求起始时间由我定，递增序列的间隔时间也由我定，生成个数也由我定
请问各位高手可以帮我在VB中编出这样的语句吗？
三楼的大师，生成的时间序列中怎么样去掉“上午”或“下午”啊？
2009-10-09 08：32：54
2009-10-09 08：32：57
2009-10-09 08：32：60
2009-10-09 08：33：03
……
要求起始时间由我定，递增序列的间隔时间也由我定，生成个数也由我定
请问各位高手可以帮我在VB中编出这样的语句吗？
三楼的大师，生成的时间序列中怎么样去掉“上午”或“下午”啊？
'text1用于输入时间增量，单位为秒；text2用于输入起始时间，请用你的标准格式
'text3用于输入数据个数，将自动取整；text4用于输出结果，在设计时要将多行性设置为真。
Private Sub Command1_Click()
Dim 时间增量 As Single, 起始时间 As Date, 数据个数 As Integer
If Val(Text1) = 0 Then
MsgBox "错误！没有输入时间增量！"
Exit Sub
End If
If Val(Text2) = 0 Then
MsgBox "错误！没有输入起始时间！"
Exit Sub
End If
If Int(Text3) < 1 Then
MsgBox "错误！数据个数不合理！"
Exit Sub
End If
时间增量 = Val(Text1) / 86400
起始时间 = Text2
数据个数 = Int(Text3)
Text4 = ""
For i = 1 To 数据个数
Text4 = Text4 & 起始时间 & vbCrLf
起始时间 = 起始时间 + 时间增量
Next i
End Sub
回答补充：
“上午”“下午”“am”“pm”这些都来自于你的windows时间格式设置。
在vb中当然也可以强制转换。简单点，还可以使用时分秒函数。
你先试试把倒数第四行
Text4 = Text4 & 起始时间 & vbCrLf
改成
Text4 = Text4 & format（起始时间,"hh:mm:ss.s") & vbCrLf
看看，要是不成，在改成
Text4 = Text4 & format（起始时间,"hh